From: Chong Yidong <cyd@gnu.org>
Date: Tue, 10 Jan 2012 10:24:42 +0000 (+0800)
Subject: Fix an error message glitch in network-stream.el.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~1212
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d833e64735d65990ee03e8c74f349f3650489b6a;p=emacs.git

Fix an error message glitch in network-stream.el.

* net/network-stream.el (network-stream-open-starttls): Avoid
emitting a confusing error message when the server gives a bad
response to the capability command.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 63fb3cf94d7..a8af1c0f3fb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-01-10  Chong Yidong  <cyd@gnu.org>
+
+	* net/network-stream.el (network-stream-open-starttls): Avoid
+	emitting a confusing error message when the server gives a bad
+	response to the capability command.
+
 2012-01-10  Glenn Morris  <rgm@gnu.org>
 
 	* mail/unrmail.el (unrmail): Tweak previous change.
diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el
index 7860eb96846..8730e875ea0 100644
--- a/lisp/net/network-stream.el
+++ b/lisp/net/network-stream.el
@@ -299,7 +299,8 @@ functionality.
 	       ;; support, or no gnutls-cli installed.
 	       (eq resulting-type 'plain))
       (setq error
-	    (if starttls-available
+	    (if (or (null starttls-command)
+		    starttls-available)
 		"Server does not support TLS"
 	      (concat "Emacs does not support TLS, and no external `"
 		      (if starttls-use-gnutls